home *** CD-ROM | disk | FTP | other *** search
- object Dlg_SelAddr: TDlg_SelAddr
- Left = 319
- Top = 236
- BorderStyle = bsDialog
- Caption = 'Select Address'
- ClientHeight = 326
- ClientWidth = 543
- Color = clBtnFace
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- OldCreateOrder = True
- Position = poScreenCenter
- OnCreate = FormCreate
- OnDestroy = FormDestroy
- OnShow = FormShow
- PixelsPerInch = 96
- TextHeight = 13
- object L_book: TLabel
- Left = 8
- Top = 16
- Width = 69
- Height = 13
- Caption = '&Address Book:'
- FocusControl = CB_books
- end
- object Bevel1: TBevel
- Left = 8
- Top = 40
- Width = 529
- Height = 3
- Shape = bsTopLine
- end
- object L_name: TLabel
- Left = 8
- Top = 52
- Width = 31
- Height = 13
- Caption = '&Name:'
- FocusControl = E_name
- end
- object Bevel2: TBevel
- Left = 8
- Top = 288
- Width = 521
- Height = 3
- Shape = bsTopLine
- end
- object L_Info: TLabel
- Left = 272
- Top = 16
- Width = 3
- Height = 13
- end
- object CB_books: TComboBox
- Left = 88
- Top = 12
- Width = 177
- Height = 21
- Style = csDropDownList
- ItemHeight = 13
- TabOrder = 0
- OnChange = CB_booksChange
- end
- object E_name: TEdit
- Left = 72
- Top = 48
- Width = 145
- Height = 21
- TabOrder = 1
- OnChange = E_nameChange
- end
- object LV: TListView
- Left = 8
- Top = 76
- Width = 209
- Height = 173
- Columns = <
- item
- Caption = 'Name'
- Width = 100
- end
- item
- Caption = 'EMail Address'
- Width = 150
- end>
- HideSelection = False
- MultiSelect = True
- ReadOnly = True
- RowSelect = True
- SmallImages = DM_Language.IL_AddressList
- SortType = stText
- TabOrder = 2
- ViewStyle = vsReport
- end
- object BtnOk: TButton
- Left = 184
- Top = 298
- Width = 75
- Height = 22
- Caption = 'OK'
- ModalResult = 1
- TabOrder = 6
- OnClick = BtnOkClick
- end
- object BtnCancel: TButton
- Left = 288
- Top = 298
- Width = 75
- Height = 22
- Cancel = True
- Caption = 'Cancel'
- ModalResult = 2
- TabOrder = 7
- end
- object Notebook: TNotebook
- Left = 224
- Top = 48
- Width = 313
- Height = 237
- PageIndex = 1
- TabOrder = 5
- object TPage
- Left = 0
- Top = 0
- Caption = 'Default'
- object L_members: TLabel
- Left = 88
- Top = 8
- Width = 46
- Height = 13
- Caption = 'Members:'
- end
- object BtnAdd: TButton
- Left = 8
- Top = 40
- Width = 75
- Height = 25
- Caption = '&Add'
- TabOrder = 0
- OnClick = BtnAddClick
- end
- object LVmembers: TListView
- Left = 88
- Top = 28
- Width = 217
- Height = 201
- Columns = <
- item
- Width = 100
- end
- item
- Width = 150
- end>
- MultiSelect = True
- ReadOnly = True
- RowSelect = True
- SmallImages = DM_Language.IL_AddressList
- TabOrder = 1
- ViewStyle = vsReport
- OnKeyDown = LVmembersKeyDown
- end
- end
- object TPage
- Left = 0
- Top = 0
- Caption = 'To'
- object SB_addto: TSpeedButton
- Left = 20
- Top = 24
- Width = 73
- Height = 23
- Caption = '->'
- OnClick = SB_addtoClick
- end
- object SB_removeto: TSpeedButton
- Left = 20
- Top = 48
- Width = 73
- Height = 23
- Caption = '<-'
- OnClick = SB_removetoClick
- end
- object SB_addcc: TSpeedButton
- Tag = 1
- Left = 20
- Top = 104
- Width = 73
- Height = 23
- Caption = '->'
- OnClick = SB_addtoClick
- end
- object SB_removecc: TSpeedButton
- Tag = 1
- Left = 20
- Top = 128
- Width = 73
- Height = 23
- Caption = '<-'
- OnClick = SB_removetoClick
- end
- object SB_addbcc: TSpeedButton
- Tag = 2
- Left = 20
- Top = 184
- Width = 73
- Height = 23
- Caption = '->'
- OnClick = SB_addtoClick
- end
- object SB_removebcc: TSpeedButton
- Tag = 2
- Left = 20
- Top = 208
- Width = 73
- Height = 23
- Caption = '<-'
- OnClick = SB_removetoClick
- end
- object L_to: TLabel
- Left = 120
- Top = 8
- Width = 16
- Height = 13
- Caption = 'To:'
- end
- object L_cc: TLabel
- Left = 120
- Top = 88
- Width = 16
- Height = 13
- Caption = 'Cc:'
- end
- object L_bcc: TLabel
- Left = 120
- Top = 168
- Width = 22
- Height = 13
- Caption = 'Bcc:'
- end
- object LB_to: TListBox
- Left = 120
- Top = 24
- Width = 185
- Height = 57
- ItemHeight = 13
- MultiSelect = True
- TabOrder = 0
- end
- object LB_cc: TListBox
- Left = 120
- Top = 104
- Width = 185
- Height = 57
- ItemHeight = 13
- MultiSelect = True
- TabOrder = 1
- end
- object LB_bcc: TListBox
- Left = 120
- Top = 184
- Width = 185
- Height = 45
- ItemHeight = 13
- MultiSelect = True
- TabOrder = 2
- end
- end
- object TPage
- Left = 0
- Top = 0
- Caption = 'Sms'
- object Label1: TLabel
- Left = 88
- Top = 8
- Width = 74
- Height = 13
- Caption = 'SMS Recipient:'
- end
- object btnAddSMS: TButton
- Left = 8
- Top = 40
- Width = 75
- Height = 25
- Caption = '&Add'
- TabOrder = 0
- OnClick = btnAddSMSClick
- end
- object lvSMS: TListView
- Left = 88
- Top = 28
- Width = 217
- Height = 201
- Columns = <
- item
- Caption = 'Name'
- Width = 100
- end
- item
- Caption = 'Mobile Phone'
- Width = 150
- end>
- MultiSelect = True
- ReadOnly = True
- RowSelect = True
- SmallImages = DM_Language.IL_AddressList
- TabOrder = 1
- ViewStyle = vsReport
- OnKeyDown = lvSMSKeyDown
- end
- end
- object TPage
- Left = 0
- Top = 0
- Caption = 'Select'
- end
- end
- object BNewCard: TButton
- Left = 24
- Top = 256
- Width = 75
- Height = 22
- Caption = 'New...'
- TabOrder = 3
- OnClick = BNewCardClick
- end
- object BProperty: TButton
- Left = 120
- Top = 256
- Width = 75
- Height = 22
- Caption = 'Property...'
- TabOrder = 4
- OnClick = BPropertyClick
- end
- object CT_books: TZComboTree
- Left = 88
- Top = 12
- Width = 177
- Height = 21
- Images = DM_Language.IL_AddressList
- ImageIndex = -1
- StateIndex = -1
- BoxWidth = 17
- BoxGlyph.Data = {
- D6000000424DD60000000000000076000000280000000D0000000C0000000100
- 0400000000006000000000000000000000001000000000000000000000000000
- 80000080000000808000800000008000800080800000C0C0C000808080000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFFFFFFFF
- F000FFFFFFFFFFFFF000FFFFFFFFFFFFF000FFFFFFFFFFFFF000FFFFFF0FFFFF
- F000FFFFF000FFFFF000FFFF00000FFFF000FFF0000000FFF000FFFFFFFFFFFF
- F000FFFFFFFFFFFFF000FFFFFFFFFFFFF000FFFFFFFFFFFFF000}
- TreeCursor = crDefault
- TreeEnabled = False
- TreeHeight = 200
- Indent = 19
- TreeReadOnly = False
- ShowButtons = True
- TreeShowHint = False
- ShowLines = True
- ShowRoot = True
- SortType = stNone
- TreeVisible = False
- OnChange = CT_booksChange
- OnExpanding = CT_booksExpanding
- end
- object ILsmall: TImageList
- Left = 96
- Top = 136
- end
- object Language: TLanguage
- LangCenter = DM_Language.LangCenter
- ResStrings.Strings = (
- '0010=Shared'
- '0011=Private'
-
- '0020=Connecting to Address Server. Please waiting. Press ESC to ' +
- 'cancel it.'
- '0030=Mobile Phone'
- '0031=Name'
- '0032=Email Address'
- '0040=You can send a short message to 10 persons at the most.')
- Left = 384
- Top = 8
- end
- end
-